home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / BB2.PRG < prev    next >
Encoding:
Text File  |  1985-09-01  |  2.2 KB  |  140 lines
  1. sele current
  2. SET DEVI TO SCREEN
  3. mbilsel1=.t.
  4. DO WHIL mbilsel1
  5. sele current
  6. SET INDE to currnmbr,currname
  7. CLEA
  8. lfile_nmbr=space(6)
  9. mbilsel2=space(1)
  10. mbilsel3=space(1)
  11. mfile_nmbr=space(6)
  12. @05,20 say 'Print by (S)ingle account or'
  13. @06,20 say '         (R)ange of accounts'
  14. @07,20 say '         (cr) to exit'
  15. @09,46 get mbilsel2 pict '@!'
  16. READ
  17. CLEA gets
  18. IF mbilsel2=' '
  19. mbilsel1=.f.
  20. exit
  21. ENDI
  22. IF .not. mbilsel2$'SR'
  23. @17,20 say 'improper input - try again'
  24. xx=1
  25. DO WHIL xx<35
  26. xx=xx+1
  27. ENDD
  28. LOOP
  29. ENDI
  30. @11,10 say 'Print (A)ll entries or only (C)urrent entries?'
  31. @13,46 get mbilsel3 pict '@!'
  32. READ
  33. IF .not. mbilsel3$'AC'
  34. @17,20 say 'improper input - try again'
  35. xx=1
  36. DO WHIL xx<35
  37. xx=xx+1
  38. ENDD
  39. @13,00
  40. LOOP
  41. ENDI
  42. DO CASE
  43. CASE mbilsel2='S'
  44. CLEA
  45. @05,20 say 'enter file number :' get mfile_nmbr
  46. READ
  47. CLEA gets
  48. FIND '&mfile_nmbr'
  49. IF eof()
  50. @17,20 say 'no file with that number - try again'
  51. xx=1
  52. DO WHIL xx<35
  53. xx=xx+1
  54. ENDD
  55. LOOP
  56. ELSE
  57. @17,10 SAY 'POSITION PRINTER AND HIT RETURN'
  58. SET CONS OFF
  59. WAIT
  60. SET CONS ON
  61. @17,00
  62. @17,10 SAY 'PRINTING.....'
  63. SET CONS OFF
  64. IF mbilsel3='A'
  65. DO bill2
  66. SET DEVI TO SCREEN
  67. ELSE
  68. DO bill3
  69. SET DEVI TO SCREEN
  70. ENDI
  71. SET CONS ON
  72. LOOP
  73. ENDI
  74. CASE mbilsel2='R'
  75. CLEA
  76. @05,20 say 'enter beginning file number :' get mfile_nmbr
  77. @06,20 say '(or cr to print all)'
  78. READ
  79. CLEA gets
  80. IF mfile_nmbr=' '
  81. GOTO top
  82. mfile_nmbr=file_nmbr
  83. GOTO bottom
  84. lfile_nmbr=file_nmbr
  85. ELSE
  86. @07,20 say 'enter ending file number    :' get lfile_nmbr
  87. READ
  88. CLEA gets
  89. ENDI
  90. FIND '&LFILE_NMBR'
  91. IF eof()
  92. @17,20 say 'inproper input - try again'
  93. xx=1
  94. DO WHIL xx<35
  95. xx=xx+1
  96. ENDD
  97. LOOP
  98. ENDI
  99. FIND '&mfile_nmbr'
  100. IF eof()
  101. @17,20 say 'inproper input - try again'
  102. xx=1
  103. DO WHIL xx<35
  104. xx=xx+1
  105. ENDD
  106. LOOP
  107. ELSE
  108. @17,10 SAY 'POSITION PRINTER AND HIT RETURN'
  109. SET CONS OFF
  110. WAIT
  111. SET CONS ON
  112. @17,00
  113. @17,10 SAY 'PRINTING.....'
  114. SET CONS OFF
  115. DO WHIL FILE_NMBR<='&LFILE_NMBR' .and. .not. eof()
  116. @22,10
  117. @22,10 say 'printing &mfile_nmbr'
  118. IF mbilsel3='A'
  119. DO bill2
  120. SET DEVI TO SCREEN
  121. ELSE
  122. DO bill3
  123. SET DEVI TO SCREEN
  124. ENDI
  125. sele current
  126. SKIP
  127. IF file_nmbr>'&lfile_nmbr'.or. eof()
  128. exit
  129. ENDI
  130. MFILE_NMBR=FILE_NMBR
  131. ENDD
  132. SET CONS ON
  133. ENDI
  134. OTHE
  135. LOOP
  136. ENDC
  137. ENDD
  138. CURR='022'
  139. RETU
  140.